Quantifying habitat-induced degradation
of animal sounds
Marcelo Araya-Salas (University of Costa Rica)
Erin E. Grabarczyk (Valdosta State University)
Marcos Quiroz-Oliva (University of Costa Rica)
Adrián García-Rodríguez (University of Vienna)
Alejandro Rico-Guevara (University of Washington)
Sound degrades during propagation
Signal structure expected to be finely tuned by natural selection
Usual steps:
Usual steps:
baRulhoFacilitate implementing sound degradation experiments:
1. Showcase study: effects of habitat and signal structure on transmission using synthesized sounds
2. Compare baRulho and Sigpro
Varying features: frequency, duration, amplitude and frequency modulation
synth_est <- synth_sounds(frequencies = c(1, 2, 3),
durations = c(0.1, 0.2),
fm = TRUE, am = TRUE)
master_annotations <- master_sound_file(X = synth_data)markers_position <- find_markers(X = master_annotations,
test.files = "path_to_files")
markers <- align_test_files(X = master_annotations,
Y = markers_position) markers_position <- find_markers(X = master_annotations,
test.files = "path_to_files")
markers <- align_test_files(X = master_annotations,
Y = markers_position) 8 degradation measures:
- Attenuation
- Reverberation
- Distortion
degrad <- blur_ratio(test_sounds_est) |>
envelope_correlation(test_sounds_est) |>
excess_attenuation(test_sounds_est) |>
signal_to_noise_ratio(test_sounds_est, mar = 0.01) |>
tail_to_signal_ratio(test_sounds_est, mar = 0.01) |>
cross_correlation(test_sounds_est) |>
spectrum_blur_ratio(test_sounds_est) |>
spectrum_correlation(test_sounds_est)degradation metric ~ habitat + freq + duration + am + fm
degradation metric ~ habitat + freq + duration + am + fm
baRulhoTakeaways
seewave and tuneR